home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / HyperCard / HyperCard 1.2.2 International / HyperCard British (B-1.2.2) / Stacks / Expense Report / card_2971.txt < prev    next >
Text File  |  1988-11-08  |  5KB  |  270 lines
  1. -- card: 2971 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2664
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 4002
  11. -- rect: left=5 top=97 right=264 bottom=96
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 18
  17. -- style flags: 0
  18. -- line height: 30
  19. -- part name: 
  20.  
  21.  
  22. -- part 3 (field)
  23. -- low flags: 00
  24. -- high flags: 4002
  25. -- rect: left=95 top=97 right=264 bottom=163
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 65535
  29. -- font id: 3
  30. -- text size: 18
  31. -- style flags: 0
  32. -- line height: 30
  33. -- part name: 
  34.  
  35.  
  36. -- part 4 (field)
  37. -- low flags: 00
  38. -- high flags: 4002
  39. -- rect: left=162 top=97 right=264 bottom=230
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 65535
  43. -- font id: 3
  44. -- text size: 18
  45. -- style flags: 0
  46. -- line height: 30
  47. -- part name: 
  48.  
  49.  
  50. -- part 5 (field)
  51. -- low flags: 00
  52. -- high flags: 4002
  53. -- rect: left=229 top=97 right=264 bottom=297
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 3
  58. -- text size: 18
  59. -- style flags: 0
  60. -- line height: 30
  61. -- part name: 
  62.  
  63.  
  64. -- part 6 (field)
  65. -- low flags: 00
  66. -- high flags: 4002
  67. -- rect: left=296 top=97 right=264 bottom=364
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 3
  72. -- text size: 18
  73. -- style flags: 0
  74. -- line height: 30
  75. -- part name: 
  76.  
  77.  
  78. -- part 7 (field)
  79. -- low flags: 00
  80. -- high flags: 4002
  81. -- rect: left=363 top=97 right=264 bottom=432
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 1
  85. -- font id: 3
  86. -- text size: 18
  87. -- style flags: 0
  88. -- line height: 30
  89. -- part name: 
  90.  
  91.  
  92. -- part 8 (field)
  93. -- low flags: 00
  94. -- high flags: 4002
  95. -- rect: left=431 top=97 right=264 bottom=509
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 1
  99. -- font id: 3
  100. -- text size: 18
  101. -- style flags: 0
  102. -- line height: 30
  103. -- part name: 
  104.  
  105.  
  106. -- part 9 (button)
  107. -- low flags: 00
  108. -- high flags: A003
  109. -- rect: left=441 top=277 right=320 bottom=506
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 1
  113. -- font id: 0
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: Recalc
  118. ----- HyperTalk script -----
  119. on mouseUp
  120.   -- Init variables
  121.   set cursor to 4    --put up watch cursor to indicate waiting
  122.   set lockscreen to true  --so only final change is displayed (faster)
  123.   put 5 into numberOfRows
  124.   put 7 into numberOfColumns
  125.  
  126.   -- put 0s in total COLUMN at right
  127.   repeat with row = 2 to numberOfRows
  128.     put 0 into line row of card field numberOfColumns
  129.   end repeat
  130.  
  131.   --put 0s in total ROW on bottom
  132.   repeat with col = 2 to numberOfColumns+1
  133.     put 0 into line numberOfRows of card field col
  134.   end repeat
  135.  
  136.   -- Calculation of subtotals
  137.   repeat with row = 2 to numberOfRows-1  --add all entries of one row
  138.     repeat with col = 2 to numberOfColumns-1 --add each entry in a row
  139.       put line row of card field col into it --take item (row,col)
  140.       add it to line numberOfRows of card field col
  141.       add it to line row of card field numberOfColumns
  142.     end repeat
  143.   end repeat
  144.  
  145.   -- Calculation of grand total (only add up totals across bottom)
  146.   repeat with  col = 2 to numberOfColumns-1
  147.     add line numberOfRows of card field col to line numberOfRows of card field numberOfColumns
  148.   end repeat
  149.  
  150. end mouseUp
  151.  
  152.  
  153.  
  154.  
  155. -- part 10 (field)
  156. -- low flags: 01
  157. -- high flags: 2002
  158. -- rect: left=8 top=37 right=79 bottom=196
  159. -- title width / last selected line: 0
  160. -- icon id / first selected line: 0 / 0
  161. -- text alignment: 1
  162. -- font id: 3
  163. -- text size: 18
  164. -- style flags: 256
  165. -- line height: 30
  166. -- part name: 
  167.  
  168.  
  169. -- part 12 (field)
  170. -- low flags: 00
  171. -- high flags: 2002
  172. -- rect: left=195 top=37 right=79 bottom=509
  173. -- title width / last selected line: 0
  174. -- icon id / first selected line: 0 / 0
  175. -- text alignment: 0
  176. -- font id: 3
  177. -- text size: 18
  178. -- style flags: 0
  179. -- line height: 30
  180. -- part name: 
  181.  
  182.  
  183. -- part 13 (button)
  184. -- low flags: 00
  185. -- high flags: 2000
  186. -- rect: left=2 top=271 right=322 bottom=55
  187. -- title width / last selected line: 0
  188. -- icon id / first selected line: 20098 / 20098
  189. -- text alignment: 1
  190. -- font id: 0
  191. -- text size: 12
  192. -- style flags: 0
  193. -- line height: 16
  194. -- part name: 
  195. ----- HyperTalk script -----
  196. on mouseUp
  197.   go home
  198. end mouseUp
  199.  
  200.  
  201.  
  202. -- part contents for card part 1
  203. ----- text -----
  204.  
  205. Hotel
  206. Car
  207. Meal
  208. TOTAL
  209.  
  210. -- part contents for card part 3
  211. ----- text -----
  212. Mon
  213. 75.25
  214. 27.50
  215. 15.37
  216. 118.12
  217.  
  218. -- part contents for card part 4
  219. ----- text -----
  220. Tue
  221. 75.25
  222. 27.50
  223. 42.93
  224. 145.68
  225.  
  226. -- part contents for card part 5
  227. ----- text -----
  228. Wed
  229. 75.25
  230. 27.50
  231. 22.68
  232. 125.43
  233.  
  234. -- part contents for card part 6
  235. ----- text -----
  236. Thu
  237. 75.25
  238. 27.50
  239. 77.89
  240. 180.64
  241.  
  242. -- part contents for card part 7
  243. ----- text -----
  244. Fri
  245. 75.25
  246. 27.50
  247. 34.34
  248. 137.09
  249.  
  250. -- part contents for card part 8
  251. ----- text -----
  252. TOTAL
  253. 376.25
  254. 137.50
  255. 193.21
  256. 706.96
  257.  
  258. 46
  259.  
  260. -- part contents for card part 10
  261. ----- text -----
  262. EXPENSE REPORT
  263.  
  264.  
  265.  
  266. 0
  267.  
  268. -- part contents for card part 12
  269. ----- text -----
  270. Week of Dec 13th, 1987